#!/usr/bin/perl
#Programmer: Rory Carmichael
#Purpose: Mash together the organism lists that we have from ldist files in a directory

my $dir = shift;
foreach my $file (`ls $dir`) {
	chomp $file;
	open(IF, "$dir/$file");
	my $line = <IF>;
	while($line =~ /Splicing/) {
		$line = <IF>;
	}
	$line =~ s/#//;
	print "$file\t$line";
	close(IF);
}
